home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / misc / amag / sh9301e.lha / Maxon-CPP-Demo / Include / rct / rct_lnk.asm next >
Assembly Source File  |  1993-02-17  |  9KB  |  521 lines
  1. */*******************************************************/
  2. */* rct_lnk.asm  v1.6 (04.09.1992)            */
  3. */*                            */
  4. */* von Jürgen Haage                    */
  5. */* (c) MAXON Computer GmbH                */
  6. */*******************************************************/
  7.  
  8.     XREF    _RctBase
  9.     XDEF    _R_OldRctLoad
  10.     XDEF    _R_ResFree
  11.     XDEF    _R_ResAddr
  12.     XDEF    _R_ReqCenter
  13.     XDEF    _R_ReqDraw
  14.     XDEF    _R_ReqEnd
  15.     XDEF    _R_GetReqStruct
  16.     XDEF    _R_SetReqStruct
  17.     XDEF    _R_SetReqText
  18.     XDEF    _R_GetReqText
  19.     XDEF    _R_GetTextStruct
  20.     XDEF    _R_SetTextStruct
  21.     XDEF    _R_SetGadText
  22.     XDEF    _R_GetGadText
  23.     XDEF    _R_GetGadStruct
  24.     XDEF    _R_SetGadStruct
  25.     XDEF    _R_RedrawGadgets
  26.     XDEF    _R_RedrawGad
  27.     XDEF    _R_Activegad
  28.     XDEF    _R_SetStrGadText
  29.     XDEF    _R_GetStrGadText
  30.     XDEF    _R_SetStGadStruct
  31.     XDEF    _R_GetStrGadStruct
  32.     XDEF    _R_SetPropGadStruct
  33.     XDEF    _R_GetPropGadStruct
  34.     XDEF    _R_OldMenuDraw
  35.     XDEF    _R_MenuEnd
  36.     XDEF    _R_SetMenuTitle
  37.     XDEF    _R_GetMenuTitle
  38.     XDEF    _R_SetMenuStruct
  39.     XDEF    _R_GetMenuStruct
  40.     XDEF    _R_SetMenuItext
  41.     XDEF    _R_GetMenuItext
  42.     XDEF    _R_SetMenuItemStruct
  43.     XDEF    _R_GetMenuItemStruct
  44.     XDEF    _R_SetMenuStext
  45.     XDEF    _R_GetMenuStext
  46.     XDEF    _R_SetMenuSubStruct
  47.     XDEF    _R_GetMenuSubStruct
  48.     XDEF    _R_ReqDrawWindow
  49.     XDEF    _R_ReqWaitMsg
  50.     XDEF    _R_OldShowScreen
  51.     XDEF    _R_RemScreen
  52.     XDEF    _R_OldFormAlert
  53.     XDEF    _R_OldFiler
  54.     XDEF    _R_FilerCacheFree
  55.     XDEF    _R_WaitMsg
  56.     XDEF    _R_GadDrawWindow
  57.  
  58.     XDEF    _R_ResLoad
  59.     XDEF    _R_ShowScreen
  60.     XDEF    _R_InitAppl
  61.     XDEF    _R_ExitAppl
  62.     XDEF    _R_ShowWindow
  63.     XDEF    _R_RemWindow
  64.     XDEF    _R_SetSysRequest
  65.     XDEF    _R_ResetSysRequest
  66.     XDEF    _R_Raw2Asc
  67.     XDEF    _R_ChangeAccess
  68.  
  69. CSEG
  70.  
  71. _R_OldRctLoad:
  72.     move.l    a6,-(a7)
  73.     movea.l    _RctBase,a6
  74.     move.l    8(a7),a0
  75.     jsr    -30(a6)
  76.     movea.l (a7)+,a6
  77.     rts
  78. _R_ResFree:
  79.     move.l    a6,-(a7)
  80.     movea.l _RctBase,a6    ; LibBase
  81.     move.l    8(a7),a0    ; LoaderBase
  82.     jsr    -36(a6)
  83.     movea.l (a7)+,a6
  84.     rts
  85. _R_ResAddr:
  86.     move.l    a6,-(a7)
  87.     movea.l _RctBase,a6    ; LibBase
  88.     move.l    8(a7),a0    ; LoaderBase
  89.     movem.l 12(a7),d0-d1    ; ART und REQUESTER- o. MENUE-ID
  90.     jsr    -42(a6)
  91.     movea.l (a7)+,a6
  92.     rts
  93. _R_ReqCenter:
  94.     move.l    a6,-(a7)
  95.     movea.l _RctBase,a6    ; LibBase
  96.     movem.l 8(a7),a0-a2    ; LoaderBase, Requester und Window
  97.     jsr    -48(a6)
  98.     movea.l (a7)+,a6
  99.     rts
  100. _R_ReqDraw:
  101.     move.l    a6,-(a7)
  102.     movea.l _RctBase,a6    ; LibBase
  103.     movem.l 8(a7),a0-a2    ; LoaderBase, Requester und Window
  104.     jsr    -54(a6)
  105.     movea.l (a7)+,a6
  106.     rts
  107. _R_ReqEnd:
  108.     move.l    a6,-(a7)
  109.     movea.l _RctBase,a6    ; LibBase
  110.     movem.l 8(a7),a0-a2    ; LoaderBase, Requester und Window
  111.     jsr    -60(a6)
  112.     movea.l (a7)+,a6
  113.     rts
  114. _R_GetReqStruct:
  115.     move.l    a6,-(a7)
  116.     movea.l _RctBase,a6    ; LibBase
  117.     movem.l 8(a7),a0-a1    ; Loaderbase und Requester
  118.     movem.l 16(a7),d0    ; GADGET-ID
  119.     jsr    -66(a6)
  120.     movea.l (a7)+,a6
  121.     rts
  122. _R_SetReqStruct:
  123.     move.l    a6,-(a7)
  124.     movea.l _RctBase,a6
  125.     movem.l 8(a7),a0-a1
  126.     movem.l 16(a7),d0-d1
  127.     jsr    -72(a6)
  128.     movea.l (a7)+,a6
  129.     rts
  130. _R_SetReqText:
  131.     move.l    a6,-(a7)
  132.     movea.l _RctBase,a6
  133.     movem.l 8(a7),a0-a1
  134.     move.l    16(a7),d0
  135.     move.l    20(a7),a2
  136.     jsr    -78(a6)
  137.     movea.l (a7)+,a6
  138.     rts
  139. _R_GetReqText:
  140.     move.l    a6,-(a7)
  141.     movea.l _RctBase,a6
  142.     movem.l 8(a7),a0-a1
  143.     move.l    16(a7),d0
  144.     jsr    -84(a6)
  145.     movea.l (a7)+,a6
  146.     rts
  147. _R_GetTextStruct:
  148.     move.l    a6,-(a7)
  149.     movea.l _RctBase,a6
  150.     movem.l 8(a7),a0-a1
  151.     movem.l 16(a7),d0-d1
  152.     jsr    -90(a6)
  153.     movea.l (a7)+,a6
  154.     rts
  155. _R_SetTextStruct:
  156.     move.l    a6,-(a7)
  157.     movea.l _RctBase,a6
  158.     movem.l 8(a7),a0-a1
  159.     movem.l 16(a7),d0-d2
  160.     jsr    -96(a6)
  161.     movea.l (a7)+,a6
  162.     rts
  163. _R_SetGadText:
  164.     move.l    a6,-(a7)
  165.     movea.l _RctBase,a6
  166.     movem.l 8(a7),a0-a1
  167.     move.l    16(a7),d0
  168.     move.l    20(a7),a2
  169.     jsr    -102(a6)
  170.     movea.l (a7)+,a6
  171.     rts
  172. _R_GetGadText:
  173.     move.l    a6,-(a7)
  174.     movea.l _RctBase,a6
  175.     movem.l 8(a7),a0-a1
  176.     move.l    16(a7),d0
  177.     jsr    -108(a6)
  178.     movea.l (a7)+,a6
  179.     rts
  180. _R_GetGadStruct:
  181.     move.l    a6,-(a7)
  182.     movea.l _RctBase,a6
  183.     movem.l 8(a7),a0-a1
  184.     movem.l 16(a7),d0-d1
  185.     jsr    -114(a6)
  186.     movea.l (a7)+,a6
  187.     rts
  188. _R_SetGadStruct:
  189.     move.l    a6,-(a7)
  190.     movea.l _RctBase,a6
  191.     movem.l 8(a7),a0-a1
  192.     movem.l 16(a7),d0-d2
  193.     jsr    -120(a6)
  194.     movea.l (a7)+,a6
  195.     rts
  196. _R_RedrawGadgets:
  197.     move.l    a6,-(a7)
  198.     movea.l _RctBase,a6
  199.     movem.l 8(a7),a0-a1
  200.     move.l    16(a7),d0
  201.     jsr    -126(a6)
  202.     movea.l (a7)+,a6
  203.     rts
  204. _R_RedrawGad:
  205.     move.l    a6,-(a7)
  206.     movea.l _RctBase,a6
  207.     movem.l 8(a7),a0-a1
  208.     movem.l 16(a7),d0-d1
  209.     jsr    -132(a6)
  210.     movea.l (a7)+,a6
  211.     rts
  212. _R_ActiveGad:
  213.     move.l    a6,-(a7)
  214.     movea.l _RctBase,a6
  215.     movem.l 8(a7),a0-a1
  216.     move.l    16(a7),d0
  217.     jsr    -138(a6)
  218.     movea.l (a7)+,a6
  219.     rts
  220. _R_SetStrGadText:
  221.     move.l    a6,-(a7)
  222.     movea.l _RctBase,a6
  223.     movem.l 8(a7),a0-a1
  224.     move.l    16(a7),d0
  225.     move.l    20(a7),a2
  226.     jsr    -144(a6)
  227.     movea.l (a7)+,a6
  228.     rts
  229. _R_GetStrGadText:
  230.     move.l    a6,-(a7)
  231.     movea.l _RctBase,a6
  232.     movem.l 8(a7),a0-a1
  233.     move.l    16(a7),d0
  234.     jsr    -150(a6)
  235.     movea.l (a7)+,a6
  236.     rts
  237. _R_SetStrGadStruct:
  238.     move.l    a6,-(a7)
  239.     movea.l _RctBase,a6
  240.     movem.l 8(a7),a0-a1
  241.     movem.l 16(a7),d0-d2
  242.     jsr    -156(a6)
  243.     movea.l (a7)+,a6
  244.     rts
  245. _R_GetStrGadStruct:
  246.     move.l    a6,-(a7)
  247.     movea.l _RctBase,a6
  248.     movem.l 8(a7),a0-a1
  249.     movem.l 16(a7),d0-d1
  250.     jsr    -162(a6)
  251.     movea.l (a7)+,a6
  252.     rts
  253. _R_SetPropGadStruct:
  254.     move.l    a6,-(a7)
  255.     movea.l _RctBase,a6
  256.     movem.l 8(a7),a0-a1
  257.     movem.l 16(a7),d0-d2
  258.     jsr    -168(a6)
  259.     movea.l (a7)+,a6
  260.     rts
  261. _R_GetPropGadStruct:
  262.     move.l    a6,-(a7)
  263.     movea.l _RctBase,a6
  264.     movem.l 8(a7),a0-a1
  265.     movem.l 16(a7),d0-d1
  266.     jsr    -174(a6)
  267.     movea.l (a7)+,a6
  268.     rts
  269. _R_OldMenuDraw:
  270.     move.l    a6,-(a7)
  271.     movea.l _RctBase,a6
  272.     movem.l 8(a7),a0-a2
  273.     jsr    -180(a6)
  274.     movea.l (a7)+,a6
  275.     rts
  276. _R_MenuEnd:
  277.     move.l    a6,-(a7)
  278.     movea.l _RctBase,a6
  279.     movem.l 8(a7),a0-a2
  280.     jsr    -186(a6)
  281.     movea.l (a7)+,a6
  282.     rts
  283. _R_SetMenuTitle:
  284.     move.l    a6,-(a7)
  285.     movea.l _RctBase,a6
  286.     movem.l 8(a7),a0-a1
  287.     move.l    16(a7),d0
  288.     move.l    20(a7),a2
  289.     jsr    -192(a6)
  290.     movea.l (a7)+,a6
  291.     rts
  292. _R_GetMenuTitle:
  293.     move.l    a6,-(a7)
  294.     movea.l _RctBase,a6
  295.     movem.l 8(a7),a0-a1
  296.     move.l    16(a7),d0
  297.     jsr    -198(a6)
  298.     movea.l (a7)+,a6
  299.     rts
  300. _R_SetMenuStruct:
  301.     move.l    a6,-(a7)
  302.     movea.l _RctBase,a6
  303.     movem.l 8(a7),a0-a1
  304.     movem.l  16(a7),d0-d2
  305.     jsr    -204(a6)
  306.     movea.l (a7)+,a6
  307.     rts
  308. _R_GetMenuStruct:
  309.     move.l    a6,-(a7)
  310.     movea.l _RctBase,a6
  311.     movem.l 8(a7),a0-a1
  312.     movem.l  16(a7),d0-d1
  313.     jsr    -210(a6)
  314.     movea.l (a7)+,a6
  315.     rts
  316. _R_SetMenuItext:
  317.     move.l    a6,-(a7)
  318.     movea.l _RctBase,a6
  319.     movem.l 8(a7),a0-a1
  320.     movem.l  16(a7),d0-d1
  321.     move.l    24(a7),a2
  322.     jsr    -216(a6)
  323.     movea.l (a7)+,a6
  324.     rts
  325. _R_GetMenuItext:
  326.     move.l    a6,-(a7)
  327.     movea.l _RctBase,a6
  328.     movem.l 8(a7),a0-a1
  329.     movem.l  16(a7),d0-d1
  330.     jsr    -222(a6)
  331.     movea.l (a7)+,a6
  332.     rts
  333. _R_SetMenuItemStruct:
  334.     move.l    a6,-(a7)
  335.     movea.l _RctBase,a6
  336.     movem.l 8(a7),a0-a1
  337.     movem.l  16(a7),d0-d3
  338.     jsr    -228(a6)
  339.     movea.l (a7)+,a6
  340.     rts
  341. _R_GetMenuItemStruct:
  342.     move.l    a6,-(a7)
  343.     movea.l _RctBase,a6
  344.     movem.l 8(a7),a0-a1
  345.     movem.l 16(a7),d0-d2
  346.     jsr    -234(a6)
  347.     movea.l (a7)+,a6
  348.     rts
  349. _R_SetMenuStext:
  350.     move.l    a6,-(a7)
  351.     movea.l _RctBase,a6
  352.     movem.l 8(a7),a0-a1
  353.     movem.l 16(a7),d0-d2
  354.     move.l    24(a7),a2
  355.     jsr    -240(a6)
  356.     movea.l (a7)+,a6
  357.     rts
  358. _R_GgetMenuStext:
  359.     move.l    a6,-(a7)
  360.     movea.l _RctBase,a6
  361.     movem.l 8(a7),a0-a1
  362.     movem.l 16(a7),d0-d2
  363.     jsr    -246(a6)
  364.     movea.l (a7)+,a6
  365.     rts
  366. _R_SetMenuSubStruct:
  367.     move.l    a6,-(a7)
  368.     movea.l _RctBase,a6
  369.     movem.l 8(a7),a0-a1
  370.     movem.l 16(a7),d0-d4
  371.     jsr    -252(a6)
  372.     movea.l (a7)+,a6
  373.     rts
  374. _R_GetMenuSubStruct:
  375.     move.l    a6,-(a7)
  376.     movea.l _RctBase,a6
  377.     movem.l 8(a7),a0-a1
  378.     movem.l 16(a7),d0-d3
  379.     jsr    -258(a6)
  380.     movea.l (a7)+,a6
  381.     rts
  382. _R_ReqDrawWindow:
  383.     move.l    a6,-(a7)
  384.     movea.l _RctBase,a6
  385.     movem.l 8(a7),a0-a3
  386.     jsr    -264(a6)
  387.     movea.l (a7)+,a6
  388.     rts
  389. _ReqWait:
  390.     move.l    a6,-(a7)
  391.     movea.l _RctBase,a6
  392.     movem.l 8(a7),a0-a2
  393.     jsr    -270(a6)
  394.     movea.l (a7)+,a6
  395.     rts
  396. _R_OldShowScreen:
  397.     move.l    a6,-(a7)
  398.     movea.l _RctBase,a6
  399.     move.l    8(a7),a0
  400.     movem.l 12(a7),d0-d1
  401.     move.l    20(a7),a1
  402.     jsr    -276(a6)
  403.     movea.l (a7)+,a6
  404.     rts
  405. _R_RemScreen:
  406.     move.l    a6,-(a7)
  407.     movea.l _RctBase,a6
  408.     movem.l  8(a7),a0-a1
  409.     jsr    -282(a6)
  410.     movea.l (a7)+,a6
  411.     rts
  412. _R_OldFormAlert:
  413.     move.l    a6,-(a7)
  414.     movea.l _RctBase,a6
  415.     move.l    8(sp),d0
  416.     move.l    12(sp),a0
  417.     jsr    -288(a6)
  418.     movea.l (a7)+,a6
  419.     rts
  420. _R_OldFiler:
  421.     move.l    a6,-(a7)
  422.     movea.l _RctBase,a6
  423.     move.l    8(sp),a0
  424.     jsr    -294(a6)
  425.     movea.l (a7)+,a6
  426.     rts
  427. _R_FilerCacheFree:
  428.     move.l    a6,-(a7)
  429.     movea.l _RctBase,a6
  430.     move.l    8(sp),a0
  431.     jsr    -300(a6)
  432.     movea.l (a7)+,a6
  433.     rts
  434. _R_WaitMsg:
  435.     move.l    a6,-(a7)
  436.     movea.l _RctBase,a6
  437.     movem.l 8(sp),a0-a1
  438.     jsr    -306(a6)
  439.     movea.l (a7)+,a6
  440.     rts
  441. _R_GadDrawWindow:
  442.     move.l    a6,-(a7)
  443.     movea.l _RctBase,a6
  444.     movem.l 8(a7),a0-a3
  445.     movem.l 24(a7),d0-d1
  446.     jsr    -312(a6)
  447.     movea.l (a7)+,a6
  448.     rts
  449. _R_ResLoad
  450.     move.l    a6,-(a7)
  451.     movea.l _RctBase,a6
  452.     movem.l 8(sp),a0-a1
  453.     jsr    -366(a6)
  454.     movea.l (a7)+,a6
  455.     rts
  456. _R_ShowScreen
  457.     move.l    a6,-(a7)
  458.     movea.l _RctBase,a6
  459.     movem.l 8(sp),a0-a1
  460.     jsr    -318(a6)
  461.     movea.l (a7)+,a6
  462.     rts
  463. _R_InitAppl
  464.     move.l    a6,-(a7)
  465.     movea.l _RctBase,a6
  466.     move.l     8(sp),a0
  467.     jsr    -324(a6)
  468.     movea.l (a7)+,a6
  469.     rts
  470. _R_ExitAppl
  471.     move.l    a6,-(a7)
  472.     movea.l _RctBase,a6
  473.     move.l    8(sp),a0
  474.     jsr    -330(a6)
  475.     movea.l (a7)+,a6
  476.     rts
  477. _R_ShowWindow
  478.     move.l    a6,-(a7)
  479.     movea.l _RctBase,a6
  480.     movem.l 8(sp),a0-a1
  481.     jsr    -336(a6)
  482.     movea.l (a7)+,a6
  483.     rts
  484. _R_RemWindow
  485.     move.l    a6,-(a7)
  486.     movea.l _RctBase,a6
  487.     movem.l 8(sp),a0-a1
  488.     jsr    -342(a6)
  489.     movea.l (a7)+,a6
  490.     rts
  491. _R_SetSysRequest
  492.     move.l    a6,-(a7)
  493.     movea.l _RctBase,a6
  494.     movem.l 8(sp),a0-a1
  495.     jsr    -354(a6)
  496.     movea.l (a7)+,a6
  497.     rts
  498. _R_ResetSysRequest
  499.     move.l    a6,-(a7)
  500.     movea.l _RctBase,a6
  501.     move.l    8(sp),a0
  502.     jsr    -360(a6)
  503.     movea.l (a7)+,a6
  504.     rts
  505. _R_Raw2Asc
  506.     move.l    a6,-(a7)
  507.     movea.l _RctBase,a6
  508.     move.l    8(sp),a0
  509.     jsr    -348(a6)
  510.     movea.l (a7)+,a6
  511.     rts
  512. _R_ChangeAccess
  513.     move.l    a6,-(a7)
  514.     movea.l _RctBase,a6
  515.     movem.l 8(sp),a0-a1
  516.     jsr    -372(a6)
  517.     movea.l (a7)+,a6
  518.     rts
  519.     end
  520.  
  521.